Sender.AddDelphiFunction('procedure Dialog(S, L: String);');
Sender.AddDelphiFunction('procedure DlgStr(S: String);');

Sender.AddDelphiFunction('function Cell(I, X, Y: Integer): Integer;');
Sender.AddDelphiFunction('procedure SetCell(I, X, Y, Z: Integer);');
Sender.AddDelphiFunction('procedure Wait(I: Integer);');
Sender.AddDelphiFunction('procedure Play(I: Integer);');
Sender.AddDelphiFunction('procedure Display;');
Sender.AddDelphiFunction('procedure Alert(S: String);');
Sender.AddDelphiFunction('function Rand(A, B: Integer): Integer;');
Sender.AddDelphiFunction('procedure LoadMap(FileName: String);');
Sender.AddDelphiFunction('procedure GenMap(FileName: String);');
Sender.AddDelphiFunction('procedure GetMap(A, B, D: Integer);');
Sender.AddDelphiFunction('function CellItem(X, Y: Integer): string;');
Sender.AddDelphiFunction('procedure SetCellItem(X, Y: Integer; Item: string);');

Sender.AddDelphiFunction('function GetStr(VR: String): String;');
Sender.AddDelphiFunction('procedure SetStr(VR, D: String);');
Sender.AddDelphiFunction('function GetInt(VR: String): Integer;');
Sender.AddDelphiFunction('procedure SetInt(VR: String; I: Integer);');
Sender.AddDelphiFunction('procedure IncInt(VR: String; A: Integer);');
Sender.AddDelphiFunction('procedure DecInt(VR: String; A: Integer);');
Sender.AddDelphiFunction('function GetBool(VR: String): Boolean;');
Sender.AddDelphiFunction('procedure SetBool(VR: String; B: Boolean);');
Sender.AddDelphiFunction('procedure LetVar(V1, V2: String);');
Sender.AddDelphiFunction('function Flag(const S: String): Boolean;');
Sender.AddDelphiFunction('procedure FlagTrue(const S: String);');
Sender.AddDelphiFunction('procedure FlagFalse(const S: String);');
Sender.AddDelphiFunction('procedure EmptyVar(VarName: string);');
Sender.AddDelphiFunction('function IsVar(VR: String): Boolean;');

Sender.AddDelphiFunction('function GetStrength: Integer;');
Sender.AddDelphiFunction('function GetAgility: Integer;');
Sender.AddDelphiFunction('function GetStamina: Integer;');
Sender.AddDelphiFunction('function GetIntellect: Integer;');
Sender.AddDelphiFunction('function GetSpirit: Integer;');

Sender.AddDelphiFunction('procedure Box(S: String);');
Sender.AddDelphiFunction('procedure Run(S: String);');
Sender.AddDelphiFunction('function Input(A, B, C: String): String;');
Sender.AddDelphiFunction('procedure Log(S: String);');

Sender.AddDelphiFunction('function AddItem(A: Integer): Boolean;');
Sender.AddDelphiFunction('procedure AddItems(A, C: Integer);');
Sender.AddDelphiFunction('function GetItemType(AItemID: Integer): Integer;');
Sender.AddDelphiFunction('function GetItemCount(AItemID: Integer): Integer;');
Sender.AddDelphiFunction('function AddMagicItem(A: string): Boolean;');
Sender.AddDelphiFunction('function DelItem(A: Integer): Boolean;');
Sender.AddDelphiFunction('function IsItem(A: Integer): Boolean;');
Sender.AddDelphiFunction('function InvCount: Integer;');
Sender.AddDelphiFunction('procedure Eat(ACount: Integer; ALogMsg: string);');
Sender.AddDelphiFunction('function GetDollItemParam(ADollPos, AParam: Integer): Integer;');
Sender.AddDelphiFunction('procedure SetDollItemParam(ADollPos, AParam, Value: Integer);');

Sender.AddDelphiFunction('procedure RedrawPC;');
Sender.AddDelphiFunction('procedure SendInfo(S: string);');
Sender.AddDelphiFunction('function GetKeyState(KeyID: Integer): Integer;');

Sender.AddDelphiFunction('procedure TVClear;');
Sender.AddDelphiFunction('procedure TVMove;');
Sender.AddDelphiFunction('procedure TVAdd(VarName: string; Value, Time: Integer);');
Sender.AddDelphiFunction('function TVGet(VarName: string): Integer;');

Sender.AddDelphiFunction('procedure SaveGame;');
Sender.AddDelphiFunction('procedure LoadGame;');
Sender.AddDelphiFunction('function GetByte(val: integer; place: byte): Byte;');
Sender.AddDelphiFunction('function GetWord(val: integer; place: byte): Word;');

Sender.AddDelphiFunction('procedure SetMobParam(x, y, Ctgr, Val: Word);');
Sender.AddDelphiFunction('function GetMobParam(x, y, Ctgr: Word): Integer;');
Sender.AddDelphiFunction('procedure InitAIMove(x1, y1, x2, y2: Word);');
Sender.AddDelphiFunction('function AIMove(x1, y1, x2, y2: Word; CheckMove: Boolean): Boolean;');
Sender.AddDelphiFunction('function CellMask(x, y, mode: Word): boolean;');
Sender.AddDelphiFunction('procedure InteractNPC(x, y: Word);');
Sender.AddDelphiFunction('function GetSignText(x, y: Word): string;');
Sender.AddDelphiFunction('function GetNPCParam(x, y, Ctgr: Word): Integer;');

Sender.AddDelphiFunction('function IsItemOnDoll(A: Integer): Boolean;');
Sender.AddDelphiFunction('function GenItem(BaseItemID, ItemLevel: Integer): string;');

Sender.AddDelphiFunction('function ShowTrade(ID: Integer): Boolean;');
Sender.AddDelphiFunction('procedure ShowStash;');
Sender.AddDelphiFunction('procedure ClampModify(V1: string; Modif, Min, Max: Integer);');
Sender.AddDelphiFunction('function InMap(AX, AY: Integer): Boolean;');
Sender.AddDelphiFunction('function Volume(AValue: Integer): Integer;');

Sender.AddDelphiFunction('function Skill(ID, ClassID: Integer): Integer;');












